ButtonChain = Object
                    Total          :Word;

                    Procedure Init;
                    Function  Position     :Word;
                    Function  Number       :Word;
                    Procedure GotoPosition (Here:Word);
                    Procedure GotoNumber   (ButtonNumber:Word);

                    Procedure Add          (X1, Y1, X2, Y2:Word;
                                            Special:Boolean; Key:Char);


                    Procedure Move         (X, Y:Integer;
                                            ButtonNumber:Word);

                    Procedure MoveAll      (X, Y:Integer);

                    Procedure WaitForClick (Var X, Y:Word;Var MouseButtons:Byte;
                                            Var Held,Doubled,Special:Boolean;
                                            Var Key:Char);

                    Procedure KillAll;
                    Procedure KillFrom;
                    Procedure KillOne;

                    Private

                    Root           :Pointer;
                    Buttons        :ButtonListPtr;

                    Function NewButtonNumber:Word;

               End

    Total is the total number of buttons in the object.

    MouseFunctions = Object
                       Init       :MouseProc_Init;
                       Show       :MouseProc_Show;
                       Hide       :MouseProc_Hide;
                       SetSpeed   :MouseProc_SetSpeed;
                       SetXY      :MouseProc_SetXY;
                       SetBounds  :MouseProc_SetBounds;
                       GetPresses :MouseProc_GetPresses;
                       GetXY      :MouseProc_GetXY;
                       GetStatus  :MouseProc_GetStatus;
                       GetClick   :MouseProc_GetClick;

                       Function  ComputerSpeed:LongInt;
                       Function  Active       :Boolean;

                     End

    All mouse activities are controlled by this object as variable
    Mouse.

    TextWindow = Object
                   VSlide         :SlideBarInfo;
                   HSlide         :SlideBarInfo;

                   HdrButtonNum   :Word;

                   Buttons        :ButtonChain;

                   Card           :MonoOrColor;
                   Status         :HideOrShow;
                   LineStyle      :LineStyles;
                   ShadowStyle    :ShadowStyles;
                   ShadowXSize,
                   ShadowYSize,
                   BoxFrg,
                   BoxBck,
                   ShdFrg,
                   ShdBck,
                   HdrFrg,
                   HdrBck    :Byte;
                   Size,
                   X1,Y1,
                   X2,Y2     :Word;
                   Header    :String;
                   HdrFmt    :TextFormats;

                   Procedure Open(NX1,NY1,NX2,NY2:Word;Forg,Back,
                                  ShadForg,ShadBack:Byte;
                                  LStyle:LineStyles;SStyle:ShadowStyles);
                   Procedure DisplayHeading;
                   Procedure NewHeading(NewHead:String;NewMode:TextFormats;
                                        Forg,Back:Byte);
                   Procedure Hide;
                   Procedure Show;
                   Procedure NewPosition(NewX,NewY:Word);
                   Procedure Drag;
                   Procedure DragVertSlideButton;
                   Procedure DragHorzSlideButton;
                   Procedure NewSize(NX1,NY1,NX2,NY2:Word);
                   Procedure NewStyle(Forg,Back,ShadForg,ShadBack:Byte;
                                      LStyle:LineStyles;SStyle:ShadowStyles);

                   Procedure HeadingIcon           (Active:Boolean);

                   Procedure VertSlideIcon         (Active:Boolean);
                   Procedure DrawVertSlideBar;
                   Procedure VertSlideBar          (Details:SlideBarInfo);
                   Procedure UpdateVertSlideBar    (CurPos:LongInt);

                   Procedure HorzSlideIcon         (Active:Boolean);
                   Procedure DrawHorzSlideBar;
                   Procedure HorzSlideBar          (Details:SlideBarInfo);
                   Procedure UpdateHorzSlideBar    (CurPos:LongInt);

                   Procedure HeadingPos             (Var BX1,BY1,BX2,BY2:Word);
                   Procedure VertSlideBarPos        (Var BX1,BY1,BX2,BY2:Word);
                   Procedure VertSlideButtonPos     (Var BX1,BY1,BX2,BY2:Word);
                   Procedure VertSlideButtonUpPos   (Var BX1,BY1,BX2,BY2:Word);
                   Procedure VertSlideButtonDownPos (Var BX1,BY1,BX2,BY2:Word);
                   Procedure HorzSlideBarPos        (Var BX1,BY1,BX2,BY2:Word);
                   Procedure HorzSlideButtonPos     (Var BX1,BY1,BX2,BY2:Word);
                   Procedure HorzSlideButtonLeftPos (Var BX1,BY1,BX2,BY2:Word);
                   Procedure HorzSlideButtonRightPos(Var BX1,BY1,BX2,BY2:Word);

                   Procedure Lock;
                   Procedure UnLock;
                   Procedure Close;

                   Private

                   Save      :Pointer;

                   Procedure SaveBackground;
                   Procedure DrawWindow;
                 End

    All methods of the object are  described  in a separate section.  The
    object also holds details about  the  window, such as, the horizontal
    and vertical slide  bars,  the  header  button  number,  the  buttons
    relating to the current window,  which  card  the window is displayed
    on, its style,  colour  and  memory  requirements,  position  on  the
    screen and header.

    Important

    PTUIVCRT.Card  and  TextWindow.Card  must  be  the same when changing
    TextWindow.   That  is,  if  you   change  a  window  on  the  colour
    screen, PTUIVCRT.Card must be set to ColorCard.

    For example, to lock  the  window  Pop  (on  the  colour  screen), if
    PTUIVCRT.Card is MonoCard, you have to do the following:

    Card:=Pop.Card;
    Pop.Lock;

    GotoCard(MyWin.Card)

    before accessing the window.